100 GOSUB110
101 O=0:F=O+8
102 FORA=0TO13:FORO=1TO7
103 PRINTSPC(33-A)D$(O)C$(O)"[145]"
104 PRINTSPC(5+A)D$(F-1)C$(F-1)"[145]"
105 F=F-1
106 NEXTO:O=0:F=O+8:NEXTA
107 FORA=1TO6:FORO=1TO8
108 PRINTSPC(20)A$(O)"[157]";B$(O)"[145][145]"
109 NEXTO:END
110 C$(7)=" ":C$(6)="[165]":C$(5)="[181]":C$(4)="[161]":C$(3)="[182][146]":C$(2)="[170][146]":C$(1)=" [146]"
111 D$(1)=" ":D$(2)="[167]":D$(3)="[182]":D$(4)="[161][146]":D$(5)="[181][146]":D$(6)="[165][146]"
112 D$(7)=" [146]"
113 J$(1)="[145][153][198]":J$(2)="[145][159][210]":J$(3)="[145][154][175]":J$(4)="[145][164]":J$(5)="[145] "
114 L$(1)="[145][153][198][145]":L$(2)="[145][159][210][145]":L$(3)="[145][154][175][145]":L$(4)="[145][164][145]":L$(5)="[145] [145]"
115 S$(1)="[145][153][198][192][192][192][192]":S$(2)="[145][159][210][153][198][192][192][192]":S$(3)="[145][154][175][159][210][153][198][192][192]":S$(4)="[145][164][154][175][159][210][153][198][192]"
116 S$(5)="[145][144] [164][154][175][159][210][153][198]":S$(6)="[145][144]  [164][154][175][159][210]":S$(7)="[145][144]   [164][154][175]":S$(8)="[145][144]    [164]"
117 S$(9)="[145][144]     "
118 RETURN